procedure SetClutValues(index, red, green, blue : integer);

Sets the red, green, and blue components of the specified LUT index.  Only indexes 1 to 254 are valid.

Also see:  GetClutValues  SaveClut  UpdateClut